Notifications
Clear all

While

32 Posts
1 Usuários
0 Reactions
6,489 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá colegas do planilhando.
Preciso realmente muito da ajuda de vcs. Sou realmente pessima na parte de While, do while, loop.
Quero que vcs me ajudem no seguinte, estou postando um modelo da minha planilha de arquivo.

Quero um While que faça 2 coisas, localize os dados verificando 2 condições:
Ex.: OV> 10
Item da OV> 1
Revisão > 0 (Sendo que este numero de revisão o usuario não coloca, o vb tem que preencher sozinho para cada OV/Item)

(A OV sempre se repete isso é normal, o que não se repete e o item da OV, e se o usuario quizer manter o numero ele tem que salvar encima do que ja existe, a revisão é igual ao Item da OV )

Então a While tem que fazer assim:
1º Quando for enviar para arquivo ela tem que olhar 1º se os numeros de OV /Item e Revisão já existem.
Se não tiver cadastrado, ai sim ele cadastra.
Se já tiver ele pergunta se o usuario quer salvar uma nova revisão ou salvar encima da que já existe.
(Se o usuario optar em salvar encima a OV fica assim:

Ex.: OV> 10 Se ele quizer salvar uma revisão nova fica assim / OV> 10
Item da OV > 1 Item da OV > 1
Revisão > 0 Revisão > 1

Só o que muda é a revisão no caso de ser a mesma OV e Item da OV.

2º Buscar, quero que qdo eu colocar o numero da OV e o Item da OV o vb vá la no meu arquivo localize esta ov copie o conteudo e me devolva.

Me ajudem por favor estou na reta final.
Obrigada.

 
Postado : 03/11/2011 11:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Anderson.
Desculpe a demora, é que pelo feriado e pela correria de sexta eu tbm não tive a oportunidade de olhar. Ai vão os as respostas de suas perguntas.
E que na verdade eu estarei trabalhando com formulario e multi-pagina, então por isso que tem que ter que enviar para plan 2 (Que é o arquivo final) / e da plan 3("Seria o List view") chamar informações da plan2.
So que existe a possibilidade do usuario querer rever os dados que ele fez e enviou para a plan2. E como ele não tem acesso ao excel "plan3", queria a list view ai ele digita OV ou Item ou Revisão e ele ela faz o filtro do que ele precisa, só queria que qdo ele visse na list view um modelo que ele quer rever ele clicar na linha da list view, e "carregar os dados selecionados", oque significa carregar os dados selecionados, seria, ir na plan4 copiar e colar em uma nova plan que podemos chamar de "RETORNO".
Ai eu irei fazer alguns ajustes na minha planilha para qdo for revisão que no caso é list view ele ao inves de pedir os dados ele ir direto na plan nova "RETORNO" e trabalhar com aqueles dados.

Será que expliquei bem, ou ficou confuso :? ???

# # # # # # # # # # # #
1º -> Oque vc Que com o botão Carregar Dados do Item Selecionado?
Resposta -> Quero copiar os dados escolhidos na List view ("Plan2") para a plan "RETORNO".

2º-> Se for o mesmo o mesmo que o botão da plan3 vc já estara visualizando o resultado da pesquisa, porque esses dados precisam ir para plan3?
Resposta -> Então não sei se seria a mesma coisa que o botão da plan3 adaptado dentro da list view. se for então esta otimo e so adaptarmos dentro da list view.

3º-> E 3 Como vc pretende alimentar a plan4?
Se vc tiver que copiar e transpor sempre fica um pouco inviavel.
Resposta -> Então realmente eu preciso das 2 opções tanto colar normal, e se eu preciso da list view acredito q precisarei colar em outra planilha as mesmas informações so que em transpor. Mais aceito sujestões.

4º-> Vc precisa dos dados na plan2?
Porque vc poderia mandar direto da plan 1 para plan4.
Resposta -> Preciso da plan 2 pq ela seria um arquivo. de tudo que eu fiz.

Agora a minha plan 2 e as informa~ções que transpor não ficarão nesta planilha e sim em outra planilha, tem como fazer o list view filtrar dados de outra planilha?

Abraços e obrigada pela força.
Daniela

 
Postado : 16/11/2011 5:02 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então, fique um pouco perdido. :)
Todo o processo sera feito por formulario, Certo?
Como os dados serão inseridos na plan1?
A plan2 sera usada para outro processos certo?
Então não pode ser da plan4?
Se ao selecionar no formulario envia para a plan RETORNO então porque a plan3?
Seria bom se vc desse uma esplanação geral do seu sistema...
BLZ?
T+

 
Postado : 16/11/2011 7:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vou fazer assim vou te mandar o um modelo que fiz de teste, td bem ?

Ai vc dá uma olhada acredito que vc consiga entender melhor, este arquivo que fiz com vc eu estou adaptando oque vc me encina no meu programa, não que este seja o oficial entende? Mais o modelinho que estou te mandando acho que da pra entender.

Qdo vc abrir os arquivos, eu até reutilizei o resumo-a-1 para que vc veja, como seria o meu arquivo,
Referente o list view, ele tem que ir na plan4.
E qdo eu escolher 1 item da list view, ele tem que ir na minha plan AP copiar o que eu escolhi e levar para o outro arquivo. "teste" e colar na planilha retorno que esta vazia.

 
Postado : 16/11/2011 11:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue outro, o que seria o modelo para arquivo.

 
Postado : 16/11/2011 11:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alguma ajuda por ai ???

 
Postado : 18/11/2011 10:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

estive olhando mas to meio no aperto.
no fim de semana to mais traquilho.
só que continuo meio perdido...
vc viu o filtro no formulario?
é isso mesmo?
o proximo passo qual é mesmo?

 
Postado : 18/11/2011 11:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi Anderson.
Vi sim é exatamente aquilo esta perfeito :mrgreen:

Só preciso que qdo eu selecionar algum item do list view e clicar em copiar dados ele copie da planilha do list view e cole na planilha retorno.

Abraços

ps.: fique tranquilo sua ajuda esta nota 1.000 para mim.

 
Postado : 21/11/2011 5:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

olá td bem ... alguma novidade?

Abraços

 
Postado : 23/11/2011 10:42 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Alguma novidade, podemos retomar o processo referente o list view?

 
Postado : 26/01/2012 12:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Daniela!!!
Mais tarde te mando uma revisão.

 
Postado : 26/01/2012 12:45 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá !!!
Seguinte:

Mudei alguns codigos, se tiver dificudades avise...

Como disse acho que vc não precias da plan 3 ...
Vou pensar um jeito de alimentar o listView com a plan2 não aguarde pode demorar...
Selecione no listview e clique no botão que ele manda para RETORNO...
Como vc disse que vai trabalhar com formulario podemos alimentar a plan2 e plan4 pelo formulario...
Confira o que foi feito, pense nas sugesto~es e de um retorno...

 
Postado : 26/01/2012 3:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ah outra coisa a orientação em RETORNO ,e assim mesmo?
Ou ,e como na plan2...
No aguardo...

 
Postado : 26/01/2012 3:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

...Só preciso que qdo eu selecionar algum item do list view e clicar em copiar dados ele copie da planilha do list view e cole na planilha retorno...

Para copiar do ListView para Plan

Dim iRow As Integer
Dim i, w, lastRow As Integer

Dim rStartCell As Range
Plan2.Range("A2:D22").Value = ""
Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Checked = True Then
        '          MsgBox ListView1.ListItems(i).Text
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = ListView1.ListItems(i).Text
rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).ListSubItems(1).Text
rStartCell.Cells(iRow, 3).Value = ListView1.ListItems(i).ListSubItems(2).Text
rStartCell.Cells(iRow, 4).Value = ListView1.ListItems(i).ListSubItems(3).Text

    End If
Next

É necessário que o controle esteja com a propriedade CheckBoxes = True.

 
Postado : 26/01/2012 7:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá José!!!
oque é necessario enviar do listview para a plan é somente a linha selecionada para a plan retorno...
Consegui isso no anexo, mas se vc puder da uma olhada e melhorar os codigos fico grato... :D
Daniela consegui alimentar a listview direto da plan2 fico no aguardo das outras pendencias... :D

 
Postado : 26/01/2012 7:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Seu último anexo não abriu.

Confira essa referência: http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&t=1124

 
Postado : 27/01/2012 9:11 am
Página 2 / 3